perm filename PHONE.PUB[C,LES]1 blob sn#473169 filedate 1979-09-11 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device xgp
C00004 00003	.tt R skip 200
C00005 00004	.begin "bod"
C00006 ENDMK
C⊗;
.device xgp
.font 1 "ngr20";
.height←35; width←36;
.page frame height high (width+1) wide;
.area text lines 1 to height chars 1 to (width-1);
.title area martab lines 1 to height char width to (width+1);
.macro tt(arg)	⊂ ttab←"arg"; tline←octal("arg")-63;
.  apart; skip (if lines<10 then 200 else 1);
.  ⊃
.fill; nojust preface 0; crbreak
.indent 0,21;
.at null ⊂ break; apart; skip; group ⊃;
.oddleftborder←evenleftborder←400;
.!xgpcommands←"/TMAR=50/BMAR=50/PMAR=900";
.turn on "%\";
.turn on tab for "\";;
.at "\\" ⊂"\"⊃;
.tabs 22;
.next page;
.tt(A);
.before page ⊂
. place martab; skip to line tline;
. ttab; place text;
.  ⊃
.next page;
.require "addres[d,les]" source_file;
.tt R; skip 200;
.begin "reps"
DISTRICT REPS

.macro a(reg,tit,fir,nam,add,hph,wph) ⊂
tit: nam, fir \hph
add
.if length("wph") then start
(work) \wph
.  end

.  ⊃
.require "boc[c,les]" source_file;
.end "reps"
.begin "bod"
.macro a(reg,tit,fir,nam,add,hph,wph) ⊂
.send bod ⊂ }βnam, fir∞ \hph
.once indent 0,5;
add
.if length("wph") then start
(work) \wph
.  end

.   ⊃
.  ⊃
.require "bod[c,les]" source_file;
.require "staff[c,les]" source_file;
.end "bod"
.portion bod; place text
.tt D;
USCF BOARD OF DIRECTORS & STAFF

.begin "rec"
.at "β" foo "∞" ⊂ "foo" ⊃;
.receive "β∞"
.end "rec"